home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / comm / news / nc_update_beta.lha / NewsCoaster / install_newscoaster < prev    next >
Encoding:
Text File  |  2002-01-28  |  3.0 KB  |  98 lines
  1. ;
  2. ; $VER: Installer Script for NewsCoaster (c) Mark Harman (13.12.01)
  3. ; (update version)
  4.  
  5. (set #wrongOS  "NewsCoaster needs at least OS3.0 to run\n")
  6. (set #wrongMUI "NewsCoaster needs at least MUI3.8 to run\n")
  7. (set #wrongCPU "NewsCoaster needs at least a 68020 CPU to run\n")
  8. (set #icons_prompt "Which icons do you wish to install?\n")
  9. (set #NewsCoaster_dir (cat "Choose a folder to install NewsCoaster in - an\n"
  10.                            "extra drawer will be created. (If you wish to\n"
  11.                            "update NewsCoaster, please select the folder\n"
  12.                            "which contains the NewsCoaster folder.)\n"))
  13.  
  14. (set #done (cat "\nNewsCoaster has been succesfully installed.\n\n"))
  15.  
  16. (set OS_ver (getversion "exec.library" (resident)))
  17. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  18.  
  19. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  20. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  21.  
  22. (set cpu_type (database "cpu"))
  23. (if (< cpu_type "68020") (abort #wrongCPU))
  24.  
  25. (complete 0)
  26.  
  27. (set Icon_set
  28.         (askchoice
  29.                 (prompt #icons_prompt)
  30.                 (help @askoptions-help)
  31.                 (choices "Amiga 4 Colour" "NewIcons")
  32.                 (default 1)
  33.         )
  34. )
  35.  
  36. (complete 10)
  37.  
  38. (set NewsCoaster_def_dir @default-dest)
  39.  
  40. (set NewsCoaster_dir
  41.         (askdir
  42.                 (default NewsCoaster_def_dir)
  43.                 (prompt  #NewsCoaster_dir)
  44.                 (help    @askdir-help)
  45.         )
  46. )
  47.  
  48. (set NewsCoaster_dir (tackon NewsCoaster_dir "NewsCoaster"))
  49. ;(set NewsCoasterGuide (tackon source "NewsCoaster.guide"))
  50.  
  51. (complete 20)
  52.  
  53. (if (not (exists NewsCoaster_dir))
  54.         (makedir NewsCoaster_dir (infos))
  55. )
  56.  
  57. (copyfiles (source "NewsCoaster") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  58. ;(if (exists (source "NewsCoaster.guide"))
  59. ;   (copyfiles (source "NewsCoaster.guide") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  60. ;)
  61. (copyfiles (source "NewsCoaster.readme") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  62. (copyfiles (source "default.index") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  63. (copyfiles (source "gotoURL.rx") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  64.  
  65. (if (= Icon_set 0)
  66.         (copyfiles (source "Icons/NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  67. )
  68.  
  69. (if (= Icon_set 1)
  70.         (copyfiles (source "/NewsCoaster.info") (dest (tackon NewsCoaster_dir "/")) (help @copyfiles-help))
  71. )
  72.  
  73. (set Rexx_dir (tackon NewsCoaster_dir "Rexx"))
  74.  
  75. ;(if (= PL_yes 0)
  76.     (if (not (exists Rexx_dir))
  77.         (makedir Rexx_dir (infos))
  78.     )
  79. ;)
  80. ;(if (= PL_yes 0)
  81.     (copyfiles (source "Rexx/after_fetchPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  82.     (copyfiles (source "Rexx/before_sendPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  83. ;)
  84.  
  85. (set icons_dir (tackon NewsCoaster_dir "icons"))
  86. (if (not (exists icons_dir))
  87.     (makedir icons_dir (infos))
  88. )
  89.  
  90. ;(copylib (prompt "MUI - TextEditor.mcc")   (source "MUI/TextEditor.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  91.  
  92. (complete 100)
  93.  
  94. (message #done "\"" NewsCoaster_dir "\"")
  95.  
  96. (exit (QUIET))
  97.  
  98.